home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / EasyGUI / Exemples / test.e < prev    next >
Encoding:
Text File  |  1994-10-06  |  654 b   |  27 lines
  1. -> test EasyGUI
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI', 'graphics/text'
  5.  
  6. PROC main() HANDLE
  7.   WriteF('résultat=\d\n',easygui('test-gui',
  8.     [ROWS,
  9.       [BEVEL,
  10.         [EQROWS,
  11.           [BUTTON,{um},'Euh,...'],
  12.           [MX,{mx},NIL,['Un','Deux','Trois',NIL],FALSE],
  13.           [BUTTON,{pom},'PomPomPom'],
  14.           [CHECK,{pom},'Regardez!',TRUE,FALSE],
  15.           [STR,3,'input','bla',10,4]]],
  16.       [EQCOLS,
  17.         [BUTTON,1,'Sauve'],
  18.         [BUTTON,2,'Utilise'],
  19.         [BUTTON,0,'Arrêter']]]))
  20. EXCEPT
  21.   WriteF('"\s"\n',[exception,0])
  22. ENDPROC
  23.  
  24. PROC um(x) IS WriteF('Euh!\n')
  25. PROC pom(x) IS WriteF('Pom!\n')
  26. PROC mx(x,y) IS WriteF('mx=\d!\n',y)
  27.